home *** CD-ROM | disk | FTP | other *** search
/ My Neighborhood / My Neighborhood.iso / mac / MacFiles / Quit.Dxr / 00001_help.ls next >
Encoding:
Text File  |  1997-10-10  |  589 b   |  29 lines
  1. property lastSprite
  2.  
  3. on exitFrame
  4.   global temp, lastchar
  5.   set whichSprite to 0
  6.   repeat with i = 4 to 5
  7.     if rollOver(i) then
  8.       set whichSprite to i
  9.     end if
  10.   end repeat
  11.   if whichSprite <> the lastSprite of script "help" then
  12.     set the lastSprite of script "help" to whichSprite
  13.     if whichSprite = 0 then
  14.       if soundBusy(1) then
  15.         puppetSound(0)
  16.       end if
  17.     else
  18.       if whichSprite = 4 then
  19.         puppetSound("yes")
  20.       else
  21.         if whichSprite = 5 then
  22.           puppetSound("no")
  23.         end if
  24.       end if
  25.     end if
  26.   end if
  27.   go(the frame)
  28. end
  29.